home *** CD-ROM | disk | FTP | other *** search
/ Freesoft 1997 May / Freesoft_1997-05_cd.bin / inzer / minolta / drivers / WL400 / W3.1 disk 1 / MSCPYDIS.IN_ / MSCPYDIS.IN
Text File  |  1994-12-06  |  6KB  |  201 lines
  1. CONST CDALREADYUSED = 7100
  2. CONST CDBADFILE = 7200
  3. CONST CDCONFIRMINFO = 7300
  4. CONST CDGETNAME = 7400
  5. CONST CDGETNAMEORG = 7500
  6. CONST CDGETORG = 7600
  7. CONST CDBADNAME = 7700
  8. CONST CDBADORG = 7800
  9. DECLARE FUNCTION FInitSystem1 LIB "mscpydis.dll" (did%, sz$, fNet%) AS INTEGER
  10. DECLARE FUNCTION FInitSystem3 LIB "mscpydis.dll" (did%, sz$, fAlways%) AS INTEGER
  11. DECLARE FUNCTION FCloseSystem LIB "mscpydis.dll" (szSect$, szKey$, szDst$, wResType%, wResId%) AS INTEGER
  12. DECLARE FUNCTION InitSystemRead (did%, sz$, fNet%) AS INTEGER
  13. DECLARE FUNCTION InitSystemWrite (did%, sz$, fAlways%) AS INTEGER
  14. DECLARE SUB CloseSystem (szSect$, szKey$, szDst$, wResType%, wResId%)
  15. DECLARE FUNCTION InitSystem (did%, sz$, fNet%, szHelpProc$) AS INTEGER
  16. DECLARE FUNCTION InitSystemDlgs (fNet%, szHelpProc$) AS INTEGER
  17. DECLARE SUB BadNameOrg(dlg%, HelpDlg%, szHelpProc$)
  18. DECLARE FUNCTION NameOrgOkay (dlg%, szName$, szOrg$, HelpDlg%, szHelpProc$) AS INTEGER
  19. FUNCTION InitSystemRead (did%, sz$, fNet%) STATIC AS INTEGER
  20. InitSystemRead = FInitSystem1(did%, sz$, fNet%)
  21. END FUNCTION
  22. FUNCTION InitSystemWrite (did%, sz$, fAlways%) STATIC AS INTEGER
  23. InitSystemWrite = FInitSystem3(did%, sz$, fAlways%)
  24. END FUNCTION
  25. SUB CloseSystem (szSect$, szKey$, szDst$, wResType%, wResId%) STATIC
  26. IF FCloseSystem (szSect$, szKey$, szDst$, wResType%, wResId%) = 0 THEN
  27. ERROR STFERR
  28. END IF
  29. END SUB
  30. FUNCTION InitSystem (did%, sz$, fNet%, szHelpProc$) STATIC AS INTEGER
  31. IF InitSystemRead(did%, sz$, fNet%) = 0 THEN
  32. InitSystem = 0
  33. ELSEIF InitSystemDlgs(fNet%, szHelpProc$) = 0 THEN
  34. InitSystem = 0
  35. ELSEIF InitSystemWrite(did%, sz$, 0) = 0 THEN
  36. InitSystem = 0
  37. ELSE
  38. InitSystem = 1
  39. END IF
  40. END FUNCTION
  41. FUNCTION InitSystemDlgs (fNet%, szHelpProc$) STATIC AS INTEGER
  42. fOkay% = 0
  43. szName$ = GetSymbolValue(SYM_NAME$)
  44. szOrg$ = GetSymbolValue(SYM_ORG$)
  45. sz$ = MID$(GetSymbolValue(SYM_TYPE$), 1, 1)
  46. IF sz$ = "N" THEN
  47. IF fNet <> 0 THEN
  48. GOTO ISDN1
  49. ELSE
  50. GOTO ISDN2
  51. END IF
  52. ELSEIF (sz$ = "U") OR (sz$ = "O") THEN
  53. GOTO ISDU
  54. ELSEIF sz$ = "W" THEN
  55. GOTO ISDA
  56. ELSE
  57. GOTO ISDB
  58. END IF
  59. ISDN1:
  60. SetSymbolValue SYM_EDITTEXTIN$, ""
  61. SetSymbolValue SYM_EDITFOCUS$, ""
  62. ISDN1L1:
  63. sz$ = UIStartDlg(DLL_CUIDLL$, CDGETORG, "FEditDlgProc", APPHELP, szHelpProc$)
  64. IF sz$ = BTN_CONTINUE$ THEN
  65. szOrg$ = RTRIM$(LTRIM$(GetSymbolValue(SYM_EDITOUT$)))
  66. IF szOrg$ = "" THEN
  67. BadNameOrg CDBADORG, APPHELP, "FHelpDlgProc"
  68. GOTO ISDN1L1
  69. END IF
  70. IF NameOrgOkay(CDCONFIRMINFO, szOrg$, "", HELP_CDCONFIRMINFO, szHelpProc$) = 0 THEN
  71. GOTO ISDN1L1
  72. END IF
  73. SetSymbolValue SYM_ORG$, szOrg$
  74. fOkay% = 1
  75. ELSEIF sz$ = VAL_REACTIVATE$ THEN
  76. GOTO ISDN1L1
  77. elseif sz$ = BTN_EXIT$ then
  78. DoAskQuit
  79. goto ISDN1L1
  80. elseif sz$ = BTN_CANCEL$ then
  81. goto ISDN1L1
  82. ELSE
  83. SetSymbolValue SYM_TYPE$, VAL_ERROR$
  84. END IF
  85. UIPop 1
  86. GOTO ISDEND
  87. ISDN2:
  88. sz$ = UIStartDlg(DLL_CUIDLL$, CDGETNAMEORG, "FNameOrgDlgProc", HELP_CDGETNAMEORG, szHelpProc$)
  89. IF sz$ = BTN_OK$ THEN
  90. szName$ = RTRIM$(LTRIM$(GetSymbolValue(SYM_NAMEOUT$)))
  91. szOrg$ = RTRIM$(LTRIM$(GetSymbolValue(SYM_ORGOUT$)))
  92. IF szName$ = "" THEN
  93. BadNameOrg CDBADNAME, APPHELP, szHelpProc$
  94. GOTO ISDN2
  95. END IF
  96. IF szOrg$ = "" THEN
  97. szOrg$ = " "
  98. END IF
  99. IF NameOrgOkay(CDCONFIRMINFO, szName$, szOrg$, HELP_CDCONFIRMINFO, szHelpProc$) = 0 THEN
  100. GOTO ISDN2
  101. END IF
  102. SetSymbolValue SYM_NAME$, szName$
  103. SetSymbolValue SYM_ORG$, szOrg$
  104. fOkay% = 1
  105. elseif sz$ = BTN_EXIT$ then
  106. DoAskQuit
  107. goto ISDN2
  108. elseif sz$ = BTN_CANCEL$ then
  109. goto ISDN2
  110. ELSE
  111. SetSymbolValue SYM_TYPE$, VAL_ERROR$
  112. END IF
  113. UIPop 1
  114. GOTO ISDEND
  115. ISDU:
  116. fOkay% = NameOrgOkay(CDALREADYUSED, szName$, szOrg$, HELP_LEGAL, szHelpProc$)
  117. GOTO ISDEND
  118. ISDA:
  119. SetSymbolValue SYM_EDITTEXTIN$, ""
  120. SetSymbolValue SYM_EDITFOCUS$, ""
  121. ISDAL1:
  122. sz$ = UIStartDlg(DLL_CUIDLL$, CDGETNAME, "FEditDlgProc", APPHELP, szHelpProc$)
  123. IF sz$ = BTN_CONTINUE$ THEN
  124. szName$ = RTRIM$(LTRIM$(GetSymbolValue(SYM_EDITOUT$)))
  125. IF szName$ = "" THEN
  126. BadNameOrg CDBADNAME, APPHELP, "FHelpDlgProc"
  127. GOTO ISDAL1
  128. END IF
  129. IF NameOrgOkay(CDCONFIRMINFO, szName$, "", HELP_CDCONFIRMINFO, szHelpProc$) = 0 THEN
  130. GOTO ISDAL1
  131. END IF
  132. SetSymbolValue SYM_NAME$, szName$
  133. fOkay% = 1
  134. ELSEIF sz$ = VAL_REACTIVATE$ THEN
  135. GOTO ISDAL1
  136. elseif sz$ = BTN_EXIT$ then
  137. DoAskQuit
  138. goto ISDAL1
  139. elseif sz$ = BTN_CANCEL$ then
  140. goto ISDAL1
  141. ELSE
  142. SetSymbolValue SYM_TYPE$, VAL_ERROR$
  143. END IF
  144. UIPop 1
  145. GOTO ISDEND
  146. ISDB:
  147. FInitInfoDialog
  148. sz$ = UIStartDlg(DLL_CUIDLL$, CDBADFILE, "FInfoDlgProc", APPHELP, szHelpProc$)
  149. IF sz$ = BTN_CONTINUE$ THEN
  150. fOkay% = 1
  151. elseif sz$ = BTN_EXIT$ then
  152. DoAskQuit
  153. goto ISDB
  154. elseif sz$ = BTN_CANCEL$ then
  155. goto ISDB
  156. END IF
  157. UIPop 1
  158. GOTO ISDEND
  159. ISDEND:
  160. InitSystemDlgs = fOkay%
  161. szName$ = ""
  162. szOrg$ = ""
  163. sz$ = ""
  164. END FUNCTION
  165. SUB BadNameOrg(dlg%, HelpDlg%, szHelpProc$) STATIC
  166. DIM bDoBadNameOrg
  167. bDoBadNameOrg = TRUE
  168. WHILE bDoBadNameOrg
  169. FInitInfoDialog
  170. sz$ = UIStartDlg(DLL_CUIDLL$, dlg%, "FInfoDlgProc", HelpDlg%, szHelpProc$)
  171. IF sz$ = BTN_OK$ THEN
  172. bDoBadNameOrg = FALSE
  173. ELSEIF sz$ = BTN_EXIT$ THEN
  174. DoAskQuit
  175. END IF
  176. WEND
  177. UIPop 1
  178. sz$ = ""
  179. END SUB
  180. FUNCTION NameOrgOkay (dlg%, szName$, szOrg$, HelpDlg%, szHelpProc$) STATIC AS INTEGER
  181. DIM bDoNameOrgOK%
  182. RemoveSymbol SYM_CONFIRMTEXTIN$
  183. AddListItem SYM_CONFIRMTEXTIN$, szName$
  184. AddListItem SYM_CONFIRMTEXTIN$, szOrg$
  185. bDoNameOrgOK = TRUE
  186. WHILE bDoNameOrgOK
  187. sz$ = UIStartDlg(DLL_CUIDLL$, dlg%, "FConfirmDlgProc", HelpDlg%, szHelpProc$)
  188. IF sz$ = BTN_CONTINUE$ THEN
  189. NameOrgOkay = 1
  190. bDoNameOrgOK = FALSE
  191. ELSEIF (sz$ = BTN_BACK_G$) OR (sz$ = BTN_CANCEL$) THEN
  192. NameOrgOkay = 0
  193. bDoNameOrgOK = FALSE
  194. ELSEIF sz$ = BTN_EXIT$ THEN
  195. DoAskQuit
  196. END IF
  197. WEND
  198. UIPop 1
  199. sz$ = ""
  200. END FUNCTION
  201.